home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 44 / Amiga Format CD44 (1999-08-26)(Future Publishing)(GB)(Track 1 of 3)[!][issue 1999-10].iso / -in_the_mag- / basics / amos / maxsamosdoors.lha / scriptexec.amos / scriptexec.amosSourceCode
AMOS Source Code  |  1999-01-01  |  1KB  |  68 lines
  1. F= Extension_16_0006(Val(Command Line$))
  2. Set Input 10,-1
  3.  
  4. 'Global NAME$
  5. 'Global SYSOP$ 
  6. '_NAME 
  7.  
  8. 'NAME$=Upper$(NAME$) 
  9.  
  10. Open In 1,"bbs:script/script"
  11.  
  12. A= Extension_16_002A(Chr$(10)+Chr$(10))
  13.  
  14. Repeat 
  15.       Line Input #1,A$
  16.       A= Extension_16_002A("Executing : "+A$+Chr$(10))
  17.       Exec(A$)
  18. Until Eof(1)
  19.  
  20. Close 1
  21.  
  22. BYE:
  23.  Extension_16_0018 
  24. End 
  25.  
  26.  
  27. 'Procedure _NAME 
  28. 'NAME$=Space$(50)
  29. 'GOP=M_getuserstr(1,NAME$) 
  30. 'NAME=Instr(NAME$,Chr$(0)) 
  31. 'If NAME=0 Then NAME=51
  32. 'If NAME>51 Then NAME=51 
  33. 'NAME$=Left$(NAME$,NAME-1) 
  34. 'End Proc
  35.  
  36. 'Procedure _MESSAGE
  37. 'ST$=Chr$(27)+"[2J"+Chr$(27)+"[0;0H" 
  38. 'A=M_bbstext(ST$)
  39. '_CENTRE[1,2,"Enter Your Message:"+Chr$(13)+Chr$(13)]
  40. '_FUNCTION[16,0,SYSOP$]
  41. 'ST$="%X"
  42. 'A=M_bbstext(ST$)
  43. 'M_portclose 
  44. 'End 
  45. 'End Proc
  46.  
  47. 'Procedure _LOCATE[X,Y]
  48. '   X=X+1
  49. '   Y=Y+1
  50. '   A$=Chr$(27)+"["+Mid$(Str$(Y),2)+";"+Mid$(Str$(X),2)+"H"
  51. '   L=M_bbstext(A$)
  52. 'End Proc
  53.  
  54. 'Procedure BYE 
  55. 'M_portclose 
  56. 'End 
  57. 'End Proc
  58.  
  59. 'Procedure _CENTRE[A,B,_TEXT$] 
  60. 'CENT=(80-Len(_TEXT$))/2 
  61. 'L=M_bbstext(Chr$(27)+"[0;3"+Right$(Str$(A),1)+"m"+Chr$(27)+"["+Str$(B)-Left$(Str$(B),1)+";"+Str$(CENT)-Left$(Str$(CENT),1)+"H"+_TEXT$)
  62. 'If L=20 Then BYE
  63. 'End Proc
  64.  
  65. 'Procedure _FUNCTION[A,B,C$] 
  66. '   A=M_dofunction(A,B,C$) 
  67. '   If A=20 Then BYE 
  68. 'End Proc